home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Larry Magid's Essential Internet
/
Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO
/
qsockpro.qip
/
WESTNET.MPS
< prev
next >
Wrap
Text File
|
1995-10-09
|
2KB
|
70 lines
# WestNet Internet Services PPP login script
# Copyright 1995 Quarterdeck Corporation
# Authored 6/8/95 kflick@netcom.com
#define the variables we will need
STRING username
STRING password
STRING framing
STRING IPAddress
# uncomment for debugging
#Trace on
# reset maximum login timeout.
SetTimeout 90
CfgGetValue "Username" username
IF result = 0 THEN
GetInput "Enter your user name" username
IF result = 0 THEN
PRINT "Warning, no username entered"
ELSE
PRINT "Username set to ["; username; "]"
ENDIF
ENDIF
# get password from access method
CfgGetValue "Password" password
# if the Password field is empty, prompt the user for it.
IF result = 0 THEN
GetPassword "Enter your password" password
IF result = 0 THEN
PRINT "Warning, no password entered"
ELSE
# NOTE: Don't print password.
PRINT "Password set."
ENDIF
ENDIF
CommWaitFor "log-in." # wait for login prompt
#delay 5
CommSend "%r" # send carriage return
CommWaitFor "login" # wait for login prompt
#delay 5
CommSend username # send user name
CommSend "%r" # send carriage return
CommWaitFor "assword" # wait for password prompt
#delay 5
CommSend password # send password
CommSend "%r" # send carriage return
CommWaitFor "annex:" # wait for password prompt
#delay 5
CommSend "ppp%r" # send carriage return
#CommWaitFor "IP address is " # wait for ip address
#CommReadIPAddr IPAddress
#if result>0 then
#CfgSetValue "IPAddress" IPAddress
#print " "
#print "IP Address set to ["; IPAddress; "]"
#endif
END